---
title: "NCAA Football Bowl Season 2020"
output:
flexdashboard::flex_dashboard:
orientation: rows
social: menu
source_code: embed
---
```{r setup, include=FALSE}
library(knitr)
library(flexdashboard)
```
```{r eval = T}
source(here::here("source_files", "loads_all_data.R"))
all_data <- data_getter(load_cached = T)
game_scores <- all_data$game_scores
selections_data = all_data$selections_data
standings <-
run_all_analysis(game_scores_read_in = game_scores, selections_data = selections_data)
```
### Current Standings {data-width=550}
```{r}
DT::datatable(standings$standings)
```
### Picks Revealed {data-width=450}
```{r}
DT::datatable(standings$visible_picks)
```